﻿
Partial Class Pagina_Inicio
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            Dim negNot As dllNegocio.NegNoticias = New dllNegocio.NegNoticias(System.Configuration.ConfigurationManager.AppSettings.Get("SPECBDD").ToString.Trim)
            Dim colNot As Collection = negNot.ListarNoticias("SI", "")
            Dim objNoticia As New dllEntidades.clsNoticias
            Dim notParam As String = Request.QueryString("noticiaID")
            notParam = IIf(notParam = "", "0", notParam)
            Dim Encontro1 As Boolean = False, Encontro2 As Boolean = False
            Try
                If colNot.Count > 0 Then
                    objNoticia = CType(colNot(1), dllEntidades.clsNoticias)
                    If objNoticia.NotID = notParam Or notParam = "0" Then
                        Encontro1 = True
                        Me.lblPriTitulo.Text = objNoticia.Titulo
                        Me.lblPriBajada.Text = objNoticia.Bajada
                        Me.lblPriCuerpo.Text = objNoticia.Cuerpo
                        Me.lblLit.Text = "<img src='img/ImgLoad/Noticias/" & objNoticia.Imagen.ToString.Trim & "' alt='' height='330' width='380' />"
                    Else
                        Encontro2 = True
                        Me.hdn2.Value = objNoticia.NotID
                        Me.litNoticia2.Text = objNoticia.Titulo & "<br />" & objNoticia.Bajada
                    End If
                    If colNot.Count > 1 Then
                        objNoticia = CType(colNot(2), dllEntidades.clsNoticias)
                        If objNoticia.NotID = notParam Then
                            Me.lblPriTitulo.Text = objNoticia.Titulo
                            Me.lblPriBajada.Text = objNoticia.Bajada
                            Me.lblPriCuerpo.Text = objNoticia.Cuerpo
                            Me.lblLit.Text = "<img src='img/ImgLoad/Noticias/" & objNoticia.Imagen.ToString.Trim & "' alt='' height='330' width='380' />"
                        Else
                            If Encontro2 = False Then
                                Me.hdn2.Value = objNoticia.NotID
                                Me.litNoticia2.Text = objNoticia.Titulo & "<br />" & objNoticia.Bajada
                                Encontro2 = True
                            Else
                                Me.hdn3.Value = objNoticia.NotID
                                Me.litNoticia3.Text = objNoticia.Titulo & "<br />" & objNoticia.Bajada
                            End If
                        End If
                    End If
                    If colNot.Count > 2 Then
                        objNoticia = CType(colNot(3), dllEntidades.clsNoticias)
                        If objNoticia.NotID = notParam Then
                            Me.lblPriTitulo.Text = objNoticia.Titulo
                            Me.lblPriBajada.Text = objNoticia.Bajada
                            Me.lblPriCuerpo.Text = objNoticia.Cuerpo
                            Me.lblLit.Text = "<img src='img/ImgLoad/Noticias/" & objNoticia.Imagen.ToString.Trim & "' alt='' height='330' width='380' />"
                        Else
                            If Encontro2 = False Then
                                Me.hdn2.Value = objNoticia.NotID
                                Me.litNoticia2.Text = objNoticia.Titulo & "<br />" & objNoticia.Bajada
                            Else
                                Me.hdn3.Value = objNoticia.NotID
                                Me.litNoticia3.Text = objNoticia.Titulo & "<br />" & objNoticia.Bajada
                            End If
                        End If
                    End If
                End If
            Finally
                objNoticia.Dispose()
                objNoticia = Nothing
                negNot.Dispose()
                negNot = Nothing
                colNot = Nothing
            End Try
        End If
    End Sub
End Class
